From 0c50ef239d96f440ad55c88e747d93233744c9e5 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 2 Dec 2012 19:01:13 -0600 Subject: [PATCH] * lisp/calc/calc-forms.el (math-date-to-iso-dt): Fix typo. --- lisp/calc/calc-forms.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index 9915799002f..0b63968ada1 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -465,7 +465,7 @@ in the Gregorian calendar and the remaining part determines the time." (let ((y approx) (sum 0)) (while (>= (math-compare date - (math-iso-dt-to-absolute (setq y (math-add y 1)) 1 1)) 0) + (math-absolute-from-iso-dt (setq y (math-add y 1)) 1 1)) 0) (setq sum (+ sum 1))) sum)))) (list @@ -739,8 +739,6 @@ as measured in the integer number of days before December 31, 1 BC (Gregorian)." (progn (or math-fd-iso-dt (setq math-fd-iso-dt (math-date-to-iso-dt math-fd-date) - jpb math-fd-date - jpbb math-fd-iso-dt math-fd-isoyear (car math-fd-iso-dt) math-fd-isoweek (nth 1 math-fd-iso-dt) math-fd-isoweekday (nth 2 math-fd-iso-dt))) -- 2.30.2